II « 



SEITE 1 

1 HDNG MPX FORTRAN ** EXPANDER I 

2 * GENERAL AUTOMATION, INC A ALL RJRHT5 RESERVED 

3 ************************************************** 
A * 

5 * PROGRAM NAME FpH-17 

6 * 

7 * MODEL NUMBER 8pQl7 

8 * 

9 * PURPOSE FORTRAN PhASE»17 

10 * 

11 * PROGRAMMER OlCK WALLMANN 

12 * 

13 ***************** REVISION LIST ************** 

14 * 

15 * RV DATE SCO BY RfcASON FOR CHANGE 

16 * -- -«-----— f — s -- 

17 * 

18 * 01 11/16/70 NONE RPH INITIAL RELEASE 

19 * 

20 ************************************************** 

21 ************************************************** 

22 ************************************************** 

23 *STATUS-VERSION 1, MODIFICATION 

24 * 

25 *FUNCTI0N/QPERATI0N- 

26 * * REPLACES READ, FIND, wRjTfc, GO TO, AND 

27 * RETURN STATEMENTS WITH c°MPjLER-GENERATED 

28 * CODING 

29 * * SETS UP IMPLIED DO LOuPS WITHIN HEAD AND 

30 * WRITE STATEMENT 

31 * * REPLACES THOSE PARTS uF ARITHMETIC, IF, 

32 * CALL AND STMNT FUNCTJUN STATEMENTS THAT 

33 * INVOLVE SUBSCRIPTING UF VARIABLES WITH 

34 * COMPILER-GENERATED CODING, 

35 * * CHECKS SUBPROGRAMS FOk a KETURN STATEMENT, 

36 * 

37 *ENTRY POINTS- 

38 * * START-PHASE 17 IS REAU jNTO CORE BY PHASE 

39 * 16 and execution begun at location 

40 * labled start* ' 

41 * 

42 *INPUT- 

43 * * THE STATEMENT STRING 

44 * * THE SYMBOL TABLE 

45 * * THE FORTRAN COMMUNICATION AREA 

46 * 

47 *OUTPUT- 

48 * * THE STATEMENT STRING 

49 * * THE SYMBOL TABLE 

50 * * THE FORTRAN COMMUNICATION AREA 
PI * 

52 .EXTERNAL REFERENCES- 

53 * * SUBROUTINES 

54 * ROLRX 

55 * *QTHER FORTRAN PHASES 

56 * NONE 

57 * 

58 *EXITS- 

59 * * NORMAL- 



SEITE 



60 * PHASE 18 IS CALLEg VIA KQU«X AMD 

61 * CONTROL IS PASSgU To IT, 

62 * * ERRORS* 

63 * OVERLAP- 

64 * PROCESSING IS MALTED* THE ERROR WORD IS 

65 * SET IN FCQM, PHASfc j8 IS CALLED VIA 

66 * ROLRX, CONTROL, IS PASSED TO IT, 

67 * SYNTAX- 

68 * THE ERRONEOUS STATEMENT IS REPLACED 

69 * WITH AN ERROR NUMBER, PROCESSING 

70 * CONTINUES, PHASE 18 IS CALLED VIA ROL3X 

71 * AND CONTROL IS PASSED TO IT, 

72 * THE SYNTAX ERROR DETECTED IN PHASE 

73 * NUMBRR V IS 69,, 

74 * 

75 *TABLES/WORK AREAS" 

76 * * THE STATEMENT STRING 

77 * * THE SYMBOL TABLE 

78 * * THE FORTRAN COMMUNICATION AREA 

79 * 

80 *ATTRIBUTES-N/A 

81 * 

82 *NOTES- 

83 * THE SWITCHES USED IN PHASE 14 FOLLOW, IF NOM* 

84 * ZERO* THE SWITCH IS TRANSFER T, IF ZERO, TH = 

85 * SWITCH IS NORMAL N, 

86 * * RETCT-RETURN STAJEmEnTS 

87 „ \j NO RETURN sTm^TS ENCOUNTERED 

88 * * STXSW- 

39 * T TWO WORD CALL HAS INDEXED 

90 * ARGUMENTS, SECUND SCAN NECESSARY 

91 * TO COMPUTE DISPLACEMENT VALUE IN 

92 * STX LI' INSTRUCTION 

93 * * USWJT-UNFORMATTED \/q 

94 * T STMNT IS NUT FORMATTED, I,E,, 

95 * DOES NOT HAVE UPT« AT I/O QPTR 2, 

96 * * DSWIT-DISK SWITCH 

97 * T DISK I/O OKTR 

Q8 ************************************************** 
99 HDNG MPX FORTRAN ** EXHANDEK I 

ioo __ aes — p^rp &?*<= 

~TrTI * 

102 * SYSTEM AND FORTRAN EQUATES 

104 MEMRY EQU TlTTf- ^* f MAXIMUM CORE SIZE 

105 PHSIZ EQU 4*320 MAXIMUM PHASE SIZE 

106 OVERL EQU HEMRY-PHSIZ PHASES 2-29 START 

107 FCOM EQU OVERL-22 FOKTRAN COMM, TABLE 

108 PHNTB EQU FCOM-56 PHASE TABLE 

109 ROLRX EQU PHNTB-5Q INTERPHASE CALL 

110 * 

111 * FORTRAN COMMUNICATION AREA 

112 * 

113 ************************************* ************* 

114 * 

115 * FORTRAN UOMMUNJCAT JQN AREA 

116 ORG FCOM 

117 * 

118 SQFS BSS 1 START OF STRlNO 

119 EQFS BSS 1 END OF SlRjNli 



SEITE 3 

1?Q SOFST BSS 1 START OF SYMBOL, TABLE 

1?1 SQFNS BSS 1 START OF N N*ST ATEMENT NUMBERS 

1?2 SQFXT BSS 1 STARf OF SUBSCRIPT TEMPORARIES 

123 SOFGT BSS 1 START OF GENERATED TEMPORARIES 

124 EOFST BSS 1 END OF SYMBOL TABUE 
1?5 COMON BSS 1 NEXT AVAILABLE COMMON 
1?6 CSIZE BSS 1 SIZE OF UOMMUN 

1?7 ERROR BSS 1 OVERLAP bRROK 

1?B FNAME BSS 1 PROGRAM NAME 

!29 BSS 1 2ND WORu PRUG NAME 

130 SORF BSS 1 SUBROUTINE - QR FUNCTION 

131 CCWD BSS 1 CONTROL UARD WgRD 

132 * BIT 15 TRANSFER TRACE 

133 * BIT 14 ARITHMETIC TRACE 

13 4 * BIT 13 EXTtNDEU PRECISION 

135 * BIT 12 LIS'j SYMBOL TABLE 
J 36 * BIT 11 LIST SUBPROGRAM NAMES 

137 * BIT 10 LIS! SOURCE PROGRAM 

138 * BIT 9 ONE WqRU INTEGERS 

139 IOCS BSS 1 IOCS CONTROL CARD WORD 

140 * 

141 * SEE PHASE ONE FOR alT PATTERNS 

143 DFCNT BSS 1 DEFINE HLE COUNT 

145 LCOMN BSS 2 SlZfc QF InSK^L COMMON 

146 * 

147 ICCER BSS 2 IOCb CONTROL CARD ERROR 

149 * BSS 2 SYSTEM LOADER USE 

151 I END OF FURTRAN COMMUNICATION 

j cp AREA 

153 HDNG HPX FORTRAN ** EXPANDER I 

154 ORG OVERL ORJblN TO FORT OVERLAY =»T 

155 START LD ERROR CHECK FuR OVERLAP 

156 BSC L EXIT,Z EXIT PHASE IF OVERLAP 
1^7 LD FHFS LD tND UF STRING ADDRESS 

158 S SOFS SUBTKACT START OF STRING 

159 LDX L3 ZERO SE[ XR3 

1 6 A 3 ONE-Z SUE OF STRING 

161 STO MOVCT STORE STRING SIZE 

162 LDX II EQFST INITIALIZE OUTPUT PT 

163 MDX 1 -10 

164 LDX 12 EOFS {NITALlZb JNRUT PT 

166 * TEST IF OVERLAP ERRyR 

167 STX LI TEMPI IS THERE OVERLAP 

168 LD EQFS BETWfcEN STRING 

169 S 3 TEMP1-Z AND SYMBUL TAHLE 

170 BSC L MOVST, Z BRANCH IF NO 

173 OVLAP MDX L ERROR, 1 SET UVERLAP ERROR 

172 BSC L EXIT GO Tu NEXT PHASE 

173 MOVCT DC *«* LENuTH UF STRING 

174 * 

175 MOVST LD 2 MOVE STRING ITEM 

176 STO 1 NEXT TO SYMBOL TABLE 

177 MDX 2 -1 MOVE POINTER 

178 MDX 1-3 

179 MDX L M"JVCT,-1 DECREMENT STRING SIZE CT 
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180 




MDX 




H1VST 


CONTINUE LOOP 


181 
182 


# 


STX 


LI 


sons 


NEW START UF STRING ADDR «1 


183 




LD 


L 


SOFST 


PUT BTaPT OF SYM TBL ADDR; 


184 




STO 


3 


S30ST-Z 


JN'SbOST 


185 

186 


* 
Q1Q11 


LDX 


11 


sons 


INlTiALUE I/P STRINQ PT 


187 




LDX 


12 


SQFS 


INlTALlZb O/P STRING PT 


188 




MDX 


?, 


-1 




189 


* 










190 


* 










191 


# 






INITIALIZES IU SCAM THk STUNT 


192 


Q1021 


MDX 


1 


1 


MOVE I/P STRING PT 


193 




MDX 


2 


1 


MOVE O/P STRING PT 


194 


* 










195 




LD 


3 


ZERQ*Z 




196 




STO 


3 


STXSW-Z 




197 




STO 


3 


CURR-Z 


INITIALIZE SWITCHES 


198 




LD 


3 


H8000-Z 




199 




STO 


3 


CURD4-Z 




200 


# 










201 


* 






EXTRACTS 


THE STMNT TYPE 


202 


Q1022 


LD 


1 





UOAD'STMNT ID WORD 


203 




AND 


3 


HF8Q3-Z 


ELIMlNATfc NORM 


204 




A 


3 


FOUR-Z 


ADD UNE TO NORM 


205 




STO 


2 





PUT UN OUTPUT STRING 


206 




AND 


3 


HF8QQ-Z 


GET STMNT ID TYPE 


20 7 




STO 


3 


STTYP-Z 


SAVE ID TYPE 


208 




STX 


L2 


OUT ID 


STQRfc ADDR OF O/P ID 


209 




STX 


LI 


I MID 


STQRfc ADUR OF I/P ID 


210 




MDX 


1 


1 


MOVE I/P PT 


211 




LD 


1 


-1 


LOAD STMNT ID WORD 


212 




BSC 


L 


Q1023,E 


BRANCH IF HAVE STMNT NO, 


213 




HDX 




01031 


identify'stmnt type 


214 


* 










215 


01023 


BSI 


3 


MOVAW-Z 


O/P bTMNT NO,, MOVE PTS 


216 

217 


* 

* 






TESTS FOR ARITHMETIC! S ™NT FUNCTION 


218 


* 






call# if 


, GO TO, KEAD, FIND, WRITE* 


219 


* 






AMD RETURN STUNTS, 


220 


Q1031 


STX 


1 


Q1033 1 


SAVE I/P STRING PT 


221 




LDX 


LI 


BRTAB-2 


INITIALIZE TABLE PT 


222 


Q1032 


MDX 


1 


2 


i'NCRteMENT TABLE PT 


223 




LD 


1 





LOAD'TABLE WORD 


224 




BSC 


L 


Ql.041, - 


BRANCH II- END OF TABLE 


225 




S 


3 


STTYP-Z 


DOES TABLE TYPE MATCH 


226 




S 


3 


OME-Z 


STATtMEN] TYPE 


227 




BSC 


L 


03.032, Z 


BRANCH IF NOT 


228 




LD 


1 


1 


LOAD BRANCH ADDRESS 


229 




STO 




01,034 1 


INSEHT BRANCH ADDRESS 


230 


Q1033 


LDX 


LI 


*■!* 


RESTORE I/P STRING PT 


231 


Q1034 


BSC 


L 


*«. # 


BRANCH Ty PROPER ID SURR 


232 


* 










233 


* 






BRANCH TABLE 


234 


* 






FOR STATEMENT TyPb 


235 


* 










236 


* 










237 


* 






/ CI 1 is 


; ADDEu TO TYPE IN ORDER TO 


238 


* 






ENABLE H 


IORMAL SEARCH F fJ R 


239 


* 






TYPE ZERO" ARjTHMfcTJC STHNT 



SEITE r> 

240 BRTAB DC / 1 ARITM 

?4i DC 01061 BRANCH ADljR 

IJ2 DC /D001 ARITH STMT FUNCTION 

243 DC Q1051 BRANCH ADDR 

244 DC /3001 CALL 

245 DC 01061 BRANCH ADDR 

246 DC /7801 If 

247 DC Q1061 BRANCH ADDR 

248 DC /7D01 QOTO 

249 DC P2011 BRANCH ADDR 

250 DC /9001 READ 

2pi DC P1052 BRANCH ADDR 

252 DC /8801 WR.if!= 

253 DC P1051 BRANCH ADDR 

254 DC /3001 RETURN 

255 DC P2031 BRANCH ADDR 

256 DC /E801 FIND 

057 DC P1053 BRANCH ADDR 

2^8 DC END-UF-TABUE^VALUE 

259 * 

260 * 

261 * 
o Ay * 

263 P1053 LD 3 FIND-Z LOAD FjNU CALL 

264 MDX D1011 CHECK J/g OPERATOR 

265 * 

267 P1051 LD 3 FrfRT-Z LOAD WRITE CAUL 

268 MDX D1011 CHECK FOR I/O OPERATOR 

269 * 

270 * EMTRY PT FOR READ-STMT 

271 * 

272 P1052 LD 3 FRED-Z LOAD READ CALL 

073 * 

074 * DETECTS THE DiSK I/O OPTR, OUTPUTS 

275 * THE APPROPRIATE OFTRS AND ARGUMENTS 

276 D1011 STO 3 TEMPY-Z STORb CALL 

277 * 

278 LD 3 ZERO«Z CLEAR 

279 STO 3 DSWIT-Z DISK SWITCH A^D 

280 STO 3 USWIT-Z UNFORMATTED I/O SWITCH 

281 * 

282 LD 1 LOAD WORD 

283 S 3 IOOPR-Z IS JT I/U OPERATOR 

284 BSC L D1015, - BRANCH IF YES 

285 MDX L DSWIT,1 SET UlSK SWITCH 

286 LD 1 LOAD WORD 

287 S 3 DIOOP-Z JSlT DISK I/O OPERATOR 

288 BSC L 0?OQ8 # - BRANCH IF YES 

239 LD 3 FXPRO-Z LOAD" EXPRESS I ON OPERATOR 

290 BSI 3 OJTP-Z OUTPUT ON STRING 

HI * BSC L 02011 IDENTIFY NEXT OPERATOR 

2Q4 1 DISK I/O OPTR ENCOUNTERED AFTER 

295 « A'-j ARITHMETIC EXPRESSION 

296 * 

207 D1014 LD 3 EXPRO-Z LOAD EXPRESSION OPERATOR 

298 BSI 3 OJTP-Z OUTPUT ON STRING 

299 * 
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301 D1015 LD 1 2 IS THIS UNFORMATTED I/O 

302 BSC L D1021,Z 9RANUH IF NOT 

303 STX U USWJT SET UNFORMATTED I/O SWJTCJH 

304 * 

30^ D1021 LD 3 TEMPY-Z OUTPUT CALL WITH DISK 

306 " 8SI 3 DTEST-Z AMD UNFORMATTED I/O TEST 

308 * LD 1 1 LOAD AND O/P ADDR OF 

3Q9 BSI 3 OUTP-Z LOGJUAL UNjT NUMBER 

3!0 LD 3 USWIT-Z IS STMNT UNFORMATTED 

311 BSC L D1024, - BRANCH IF NO 

312 MDX 1 2 JNCRbMENT PT 

31 3 MDX D1026 CHECK FOK FIND STMNT 

314 D1024 LD 1 2 LOAD AND OUTPUT 
3J5 BSI 3 OJTP-Z ADDRbSS UF FOHMAT 

316 MDX 1 3 MOVE PT 

317 D1026 LD 1 LOAD WQRU 

318 BSC L P3011.Z BRANCH IF NOT SbMI-CDLON 

320 I GENERATES A CALL SCUMP WHEN A 

321 * WRlTb STMNT lb DETECTED 

322 D1031 EQU * 

323 P1D61 EQU D1031 

324 LD 3 STTYP-Z LOAD STMNT ID TYPE 

325 S 3 FNjDJD-Z IS lT A FjND STATEMENT 

326 BSC L 01D21,*- BRANCH IF YES 

327 P1Q62 LD 3 FCOMP-Z OUTPUT ,CALL SCOMP, 

328 BSI 3 DTEST-Z WITH DjSK TEST 

329 BSC L Q1021 GET NEXT STMNT 

330 * 

331 * 

332 * GO TO STMNT 

333 «, PRODUCES A BbC L INSTRUCTION FROM 

334 * A SIMPLE GO Tu STMNT, IF TRACING IS 

335 # REQUIRED, "OUTPUTS THE CALL TO THE 

336 * TRACE ROUTINE 

338 P2011 LD 1 1 I s ThIS UNCONDITIONAL GO TO 

339 BSC Z SKIP IF YES 

3 40 MD x P 2 012 COMPUTED GO TO BRANCH 

341 LD 3 HF800-Z OUTPUT ,BSC L. 

342 BSI 3 OUTP-Z PUT UN STRING 

-iax ID 1 LOAD BRANCH TO ADDR 

344 AND 3 H D 7FF-Z COMBINE INSTRUCTION AND 

345 A 2 ADD ADDRESS TO GET 

346 ST o 2 ***** BSC L ADDRESS 

347 MDX 1 1 MOVE I/ p PT 

348 BSC L 01021 GO Tu NEXT STMNT 

349 * 

3P0 * COMPUTED GOTO 

351 * PRODUCES A BbC 11 INSTR FROM A 

352 * COMPUTED GO Tu OPTR, IF TRACING IS 

353 * REQUIRED, OUTPUTS THE CALL TO THE 

354 * TRACE ROUTINE 

3^55 P2012 LD 11 LOAD iNTbGfcR VARIABLE 

3 56 * AND 3 HQ7FF-Z COMBINE WITH ,LD* II, 

357 A 3 LPXU-Z TO GfcT 

358 BSI 3 OUTP-Z ***** ^DX II INTEGER VAR 

359 * 
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36 n * MOVE FIRST STmNT NUMBER NAME ON 

361 * STRING SO'THAI ALL STUNT NUMBERS 

362 * WILL BE CONSECUTIVE 

364 * LD 1 MOVE FjRST STHNT NO. 

365 STO 1 1 0N STR|Nii 

366 * 

367 * TEST IF TRACE REQUIRED 

368 ld L CCWD LOAD CONTROL CARD WORD 

369 SLA 15 IS TKACE REQUIRED 

370 BSC - SKIP IF YES 

371 MDX P2Q21 BRANCH IF NOT 

372 * 

373 LD 3 FQOTO-Z OUTPUT .CALL *GOTO, 

374 RSI 3 QUTP-Z ON OUTPUT STRING 

375 MDX p 2 02A OUTPUT STMNT NOS, 

376 # „-,.„„ 

377 P2021 LD 3 COMGU-Z OUTPUT t CALL CONGO, 

378 BSI 3 OUTP-Z SO UO IT 

379 # 

3 B0 * GET Ti^O WORD CALL DUMMY 

382 P202A MDX 1 1 *OVt V* "°ifJTER 

3 83 LD 3 H5F00-Z SET DUMMY WOHD 

3 fi4 BSI 3 O'JTP-Z GO t" u T 1 T ON STRING 

3 B5 STX 2 P2023+1 SAVfc XR2 COUNT 

386 * 

3S7 # OUTPUT STATEMtNT NUMBEKS JN 

388 * COMPUTED GO'TU 

389 * 

390 P2022 LD 1 LOAD WqRU 

391 BSC L O1021, - BRANCH IF SEMICOLON 
302 BSI 3 OUTP-Z OUTPUT STMNT NO, 
3 q 3 MDX 11 MOVE'l/P STRING PT 

394 P2023 MDX L *-*»! ADD ONE To COUNT 

395 * MDX P2022 CONTINUE LOOP 

307 * GENERATES THE RETURN LINKAGE FROM A 

39 8 * SUBPROGRAM, "ALLOWS THE ARGUMENTS TO 

399 * BE PASSED 

400 P2031 LD L S 3 RF IS This MAINLINE PROGRAM 

401 BSC L ERRRi - BRANCH If- YES 

402 BSC L P2Q34, BRANCH IP SUBROUTINE 

403 LD L F'lAME L.OAP ' PROURAM NAME 

40 4 BSI 3 GETIU-Z GET SYMBOL TABLE ID WORD 

405 SLA 1 

406 BSC - SKIP IF INTEGER FUNCTION 

407 MDX P2032 BRANCH II- NOT 

408 LD L FNAME LOAD PROGRAM NAME 

409 OR 3 LDL-Z COMBINE WITH ,LD L, TO GE 

4 10 MDX P2033 ***** LU L PROGRAM N*ME 

411 P2032 LD 3 FlD-Z UOAD ,CALL FLO, 

412 BSI 3 OJTP-Z PUf CALL ON OUTPUT STRING 

413 LD L PNAME LOAD FgNCTjON NAME 

414 P2033 BSI 3 OJTP-Z PUT ON OUTPUT STRING 

415 P2034 MDX L RETCM COUNT RETURN STENTS 

416 LD 3 H5080-Z LOAD ,BSC I. 

417 BSI 3 0:|TP-Z p U T uN OUTPUT STRING 

418 LD 3 H5F00-Z OUTPUT BLANK .-'HIGH WILL 3E 
4^9 , HEPLACEO BY ENTKY*PT ADD! 





SEITE 


8 




420 


* 






***** 8SC I ENTRY PT 


421 




BSI 


3 OUTP-Z 


PUT UN OUTPUT STRING 


422 




BSC 


L Q1021 


GO'TU NEXT STMNT 


423 


* 








424 


# 




CHANGE RETURN STMNT INTO 


425 


* 




ERROR STATEMENT 


426 


* 








427 


ERRR 


LD 


I OUTID 


LOAD RETURN STMNT ID TYP = 


428 




A 


DIFF 


CHANGE TU ERROR STMNT ID 


429 




STO 


I OJTID 


PUT HACK ON O/P STRING 


430 




ID 


3 C69-Z 


PUT fcRROK NO, 69 


431 




BSI 


3 O'JTP-Z 


on'output string 


432 




BSC 


L Q1021 


GO TU NEXT STMNT 


433 


DIFF 


DC 


/AOO0-/800O ERROR STMNT ID TYPE 


434 


* 








435 


* 




IOOP 




436 


P3011 


LD 


1 o 


LOAD WQRD 


437 




S 


3 LOP-Z 


I S J 7 LlbT OPERATOR 


438 




BSC 


m 


SKIP" IF NOT 


439 




MDX 


P3031 


BRANCH IF LJ ST OPERATOR 


440 


* 








441 




LD 


1 o 


LOAD WORD 


442 




S 


3 H0018-Z 


IS' II LITERAL SUBSCRIPT 


443 




BSC 


L P3025, - 


BRANCH IF YES 


444 




BSC 


L P4011, 


BRANCH IF LE sb T HAN O'.TR 


445 




s 


3 H0008-Z 


IS" It GREATER THAN 3 OPTR 


446 




BSC 


L P4011,-Z 


BRANCH IF YES 


447 


P3023 


BSI 


L SBSN 


PROCESS SUBSCRIPT OPERATORS 


448 




MDX 


P3011 


CHECK NEXT WQRD 


449 


P3025 


BSI 


L SBSLT 


PROCtSS LITERAL SUBSCRIPT 


450 




MDX 


P3011 


CHECK NEXT WQHD 


451 


* 








452 


* 




IDENTIFIES THfc LlbT VARIABLE TYPE 


453 


P3031 


LD 


1 1 


LOAD WQRD 


454 




BSI 


3 GETID-Z 


GET bYM T9L I" 


455 




AND 


3 H1800-Z 


fS'lt DIMENSIONED 


456 




BSC 


** ■■ 


SKIP'IF YES 


457 




MDX 


P3043 


BRANCH If- NOT 


458 




LD 


1 1 


LOAD' WQRU 


459 




AND 


3 H7800-Z 


GET HSEUUO INDEX FOR SGT 


460 




BSC 




SKIP' IF HAVE INDEX 


461 




MDX 


P3051 


BRANCH U NOT 


462 




BSI 


3 SCHP1-Z 


LOAD LITERAL SUBSC OFFSET 


463 


* 








464 


* 




GENERATES THE CALLS FQ" THE 


465 


* 




DIMENSIONED LIST VARIABLES KITH THE 


466 


* 




ASSOCIATED SGJ 


467 


* 








468 


P3041 


LD 


1 1 


LOAD WORD 


469 




BSI 


3 GETID-Z 


GET bYM T8L I" w ORD 


470 




SLA 


1 


IS' IT REAL VARIABLE 


471 




BSC 


L P304A,- 


BRANCH IF YES 


472 
473 


* 


LD 


3 FIOIX-Z 


LOAD ,LIBF SIOIX,, OUTPUT 


474 




MDX 


P3048 


CALL, BASE ADDR OF DIM VAR 


475 


* 








476 


P304A 


LD 


3 FIOFX-Z 


LOAD ,LIBF SIOFX,, OUTPUT 


477 


P304B 


BSI 


3 OUTIO-Z 


CALL, BASE ADDR OF DJM VAR 


478 


* 








479 


P3042 


: MDX 


1 2 


MOVE I/P PT 
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480 MDX P3011 CHEC* NEXT WQKD 

481 * 

483 I GENERATES THE CALL FOR NON» 

484 * DIMENSIONED LIST VARIABLES KITH THE 
435 * ASSOCIATED SGT 

486 * 

487 P3043 LD 1 1 L° A D WQRU 

438 BSI 3 GETID-Z GET bYM TBL I U WORD 

489 SLA 1 IS H REAL VARIABLE 

490 BSC L P3044,- BRANCH IF YES 
401 LD 3 FIOI-Z LOAD ,LIBF S 1 1 , 

492 MDX P3045 OUTPUT CALL* AD °R ^ VAR 

493 * 

494 P3044 LD 3 FIOF-Z LOAD ,L,IbF SJQF, 

495 P3045 BSI 3 OUTIO-Z OUTPUT CALL* A DDP OF VAR 

496 MDX P3042 GET NEXT WORD 

497 * 

498 * 

499 * GENERATES THE CALL FOR A 

500 * PIMENSIONED'LIST VARIABLE WITHOUT 

501 * THE ASSOCIATED SGT 

502 P3051 LD 11 LOAD WQRU 

503 BSI 3 GgTID-Z GET SYM TBL JO WORD 

504 SLA 1 IS It REAL VARIABLE 

505 BSC L P3Q52,- BRANCH If- YES 

506 LD 3 FIOAUZ LOAD'.LlBF SIOAI,, O/P CALL 

507 MDX P3053 ADDR OF 1ST ELEMENT IN ARRA 

509 P3052 LD 3 FlOAF-Z LOAD .L.IBF SJHAF,, O/P CALL 

510 P3053 BSI 3 QJTJO-Z ADDR OF 1ST ELEMENT IN ARRA 

512 * OJTPUT ARRAY bIZE 

513 * .TAGGED. "TO FACILITATE HANDLING 

514 # 

5J5 MDX L SYMT1 1,-3 DtCR bYM TBL ADDR 

516 LD I SYMT1 1 L 0AD ARRAY S J ZE 

5T7 OR 3 H8000-Z TAG bI*E WgRD 

51 8 BSI 3 OUTP-Z OUTPUT AkRaY HUE 

519 MDX P3042 BRANCH AUDK 

520 * 

522 I GENERATES THE DO INITIALIZE CODE 

523 * DO-OPERATOR tNCOUNTERED 

524 * 

525 P4011 LD 1 LOAD WqRD 

526 BSC L P1061, - BRANCH IF SEMI-COLON 

527 S 3 DOAOP-Z IS IT DO OPERATOR 

528 BSC Z SKIP IF YES 

529 MDX P4023 BRANCH IF NOT 

530 LD 3 ZERO-Z CLEAR 

531 STO 3 CURR-Z PSX-jN^UbE SWITCH 

532 LD 12 LOAD INITIAL JO VALUE 

533 AND 3 HIJ7FF-Z COMBINE WITH ,LD Lt 

534 A 3 LDL-Z TO GbT 

535 BSI 3 QUTP-Z ***** LU L INITIAL VALUE 

536 LD 11 LOAD INDEX 

537 AMD 3 HQ7FF-Z COMBINE WITH ,STO L, 

538 A 3 STOL"Z [O GbT 

539 BSI 3 OL»TP«Z ***** STO L INDEX 
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10 






540 




LD 


3 


GENLO-Z 


OUTPUT GENERATED 


541 




BSI 


3 


OUTP-Z 


LABEL OPERATOR 


542 




MDX 


L 


GENUO.l 


INCREMENT STORED GENERAL 


543 


* 








LABEL OPTR BY ONE 


544 


P4021 


HDX 


1 


3 


MOVE I/P'PT 


545 




BSC 


L 


P3011 


CHECK NEXT ELEMENT 


546 


* 










547 


* 






GENERATES DO I E S T CUDE 


548 


P4023 


LD 


1 







549 




S 


3 


DQTQP-Z 


JS WURD UO TEST OPTR 


550 




BSC 


L 


P1061.Z 


BRANCH IF NOT 


551 


* 










552 


* 






POTEST 




553 




MDX 


L 


genlo,-i 


DECRfcMEN'l GENERAL LAPEL 


554 


* 








OPERATOR NUMBER BY 1 


555 




LD 


1 


3 


IS" INCREMENT GT ONE 


556 




BSC 




m 


SKIP IF YES 


557 




MDX 




P4032 


BRANCH IF INCREMENT IS OME 


558 




BSI 


3 


DULDL-Z 


***** LU L INDEX 


559 




LD 


1 


3 


LOAD INCREMENT 


560 




AND 


3 


HQ7FF-Z 


COMBINE WITH jA L, , 


561 




A 


3 


AL-Z 


TO GfcT 


562 




BSI 


3 


OUTP-Z 


***** A L INCREMENT 


563 




LD 


1 


1 


LOAD INDEX 


564 




AND 


3 


HQ7FF-Z 


COMBINE WITH j STO L, 


565 




A 


3 


STOL-Z 


TO GET 


566 




BSI 


3 


OUTP-Z 


***** STO L INDEX 


567 


P4031 


BSI 




P4035 


***** S L LIMIT VALUE 


568 


* 








***** BSC L GEN LAB, I 


569 




MDX 


1 


1 


MOVE I/P PT 


570 




MDX 




P4021 


CHECK NEXT WORD 


571 


* 










572 


* 










573 


P4032 


LD 


3 


MDXL1-Z 


LOAD ,MDX L *-*»!• 


574 




BSI 


3 


OLJTP-Z 


OUTPUT 


575 




LD 


1 


1 


LOAD" INDEX 


576 




BSI 


3 


OUTP-Z 


***** MUX L INDEX,! 


577 




BSI 


3 


OULDL-Z 


***** LU L INDEX 


578 




BSI 




P4035 


***** S L LIMIT VALUE 


579 




MDX 




P4021 


***** BSC L GEN LAB, I 


580 


# 








CHECK NEXT WORD 


531 


* 










582 


* 






SUBROUTINE HJ OUTPUT 


583 


* 






s 


L LI^IT VALUE 


584 


* 






BSC L GEN LAB, Z 


585 


* 










586 


P4035 


DC 







ENTRY POINT 


587 




LD 


1 


2 


LOAD LJMIT VALUE 


588 




AMD 


3 


HQ7FF-Z 


COMBINE WITH .S Lt 


589 




A 


3 


SL-Z 


TO GbT 


590 




BSI 


3 


OUTP-Z 


***** S L LIMIT VALUE 


591 




LD 


3 


GENLO-Z 


LOAD RETURN INSTRUCTION 


592 




BSI 


3 


OUTP-Z 


***** BSC L GEN LAB, Z, 


593 




BSC 


I 


P4035 


RETUKN 


594 


* 










595 


* 






INSERTS 


THE FUNCTION NAME IN NAME 


596 


* 






CODE INTO FNAME IN THE FORTRAf! 


597 


* 






COMMUNICATIONS ARtA 


598 


TMTE 


SLA 







NOP 


599 


* 
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600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 



* 

* 



* 
* 

* 
* 

* 



* 

it 



* 

* 

* 

* 
* 



LD 
BSC 



LD 

BSC 

BSI 

LDX 

LD 

SRT 

LD 

SUA 

SRA 

SRT 

STO 

RTE 

STO 



LD 

AND 

STO 



LD 
BSC 

LD 

STO 

LD 

STO 

STO 

BSC 



* 
# 
Q1041 



Q1042 



LDX 

LDX 

LD 

AND 

STO 

LD 

STO 

MDX 



PROCESS ,FNAMfc, IN 
COMMUNICATION AREA 

IF MAINLINE PKOgRaM, N« ACTION TAKEN 



L 
L 



SORF 
EXIT, 



IS THIS MAINLINE PROGRAM 
BRANCH If YES 



IT IS SUBROUTINE UR FUNCTION 
REPLACE SYM~TBL KfcF IN FN'AME 
NAME WITH CHARACTERS PACKED 
01JTPUT MODE" 



PY 

IN 



L FHAME 
L EXITi- 

3 GE-TIU-Z 
12 SYMT1 1 
2 2 

15 
2 1 
1 
1 
1 
L FNAME 

16 
L F'-^AME 1 



LOAD PROGRAM NAME 

BRANUH IF ALREADY HAVE NAME 

GET SYM TBL JE WORD 

LOAD SYM TBL ID WORD ADD3 

LOAD 2ND WORD OF NAME 

PUT |N EXTENSION 

LOAD FjRST WORD OF NAME 

REMOVE ALPHAS-INDICATOR BIT 

RESTgRE WORD 

RIGHT J'JSTjFY NAME 

STORfc FIRST WORD OF NAME 

PUT 2ND WORD OF NAME IN ACC 

STORfc 2NU WORD 



MAKE SYM TBL JD WURD ,VAPIABlEi 

2 LOAD SYM TBL ID WORD 

3 H4020-Z CLEAN ALL BUT REAL/INTEGER 

AND UEFINED BITS IN ID WORD 
2 STORfc ID WORD IN SYM TBL 

IF SU3R, MAKE SyM TBL ENTRY LOOK 
LIKE REFERENCfcD GENERATED LABEL 
INSTEAD THIS pSfcUDO- ENTRY WILL MOT 
CAUSE CONFUSION IN FOLLOWING 
PHASES BUT WILL BE PASSED BY 
WITHOUT ACTION 



L SORF 
L EXIT, 



H0220-; 



ZERO^Z 

1 

2 

EXIT 



LOAD SQRK WORD 
BRANGH IF FUNCTION 

L,OAD REFERENCED STMNT NO, I 
PUT |N SYM TBL 
LOAD ZERO 
PUf IN 

as'name 

go tu next phase 



RETAINS THE CURRENT STMNT IN THE 
STRING UNALTENED 



11 IN' ID 

12 OUT ID 

1 

3 HQ7FC-Z 

3 N0RM»Z 

2 

L NORM, -4 



RESET J/P STRING PT 

RESET O/P STRING PT 

LOAD'STMNT ID WORD 

EXTRACT 

NORM 

AND STORE 

MOVE~ONE WORD 

TO 'O/P STRJNG 
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660 MDX Q1043 DECREMENT NORM BY ONE 

661 * TEST IF LAST UUTPUT STMT 

662 # WAS fcND STMNT 

663 LD 3 STTYP-Z CONTINUE LOOP 

664 S 3 TEND-Z LOAD STMNT ID TYPE 

665 BSC L 01021, Z IS ll £NU gTMNT 

666 * BRANCH IF NOT 

667 Q1044 STX L2 EQFS NEW fcND UF STRING ADDRESS: 

668 * „ 

669 * TEST THAT SUBPROGRAM CONTAINS AT 

670 * LEAST ONE RETURN-STATEMENT 

673. * 

672 LD L SORF LOAD SQRF 

673 BSC L RETRN.Z BRANCH UNLESS MAINLINE 

674 LD 3 RETCT-Z DOES'PROURAM HAVE RETURN 

675 BSC L P1044, - STMNT - BRANCH IF NOT 

676 MDX FRRRR ERRON |F YfcS 

677 RETRN LD 3 RETCT-Z DOES " PROGRAM HAVE RETURN 

678 BSC L P1044,Z STMNT * BRANCH JF YES 

679 ERRRR LD 3 HA0Q8-Z L°*D ERROR ST^NT ID WORD 
6B0 STO 2 PUt UN OUTPUT STRING 

681 LD 3 C69-Z LOAD ERROR NO, 

682 STO 2 1 PU r UN OUTPUT STRING 

683 LD 1 LOAD' END STMNT 

684 STO 2 2 QUJPUT 

685 MDX 2 2 MOVE OUTPUT PT 

686 * 

687 P1044 STX L2 EQFS NEW fcND UF STRING ADDR 

688 * 

689 * 

690 BSC L THTE BRANCH Tu TERMINATE PHASS- 

691 * 

692 * 

693 Q1043 MDX 1 1 MOVE J/P Pf 

694 MDX 2 1 MOVE Q/P PT 

695 MDX 01042 CONTINUE LOOP 

697 I OUTPUTS THE NaM£ AND PARAMETERS FOR 

698 * STMNT FUNCTION STATEMENTS 

700 Q1051 BSI 3 HOVAW-Z OUTPUT W U RD# "OV£ PTS 

701 LP 1 LOAD W R U 

70 2 BSC L Q1051, Z BRANCH NUT OPERATOR 

?04 I SAVE OUTPUT PulNTfcR 1 

705 * AT TEMPP 

707 Q1061 STX L2 TEMPP SAVE OUTPUT PT 

708 MDX L TEHPP#1 MOVE U/P RT 

710 ** IDENTIFY NEXT OPERATOR 

711 * 

712 * 

713 02011 LD 10 LOAD WqRu 

714 BSC L Q2041, - BRANCH IV SEMI-COLON 
7!5 S 3 DIOOP-Z IS jf DISK I/O OPERATOR 

716 BSC L 02009, Z BRANCH IF NOT 

71 7 LD 2 LOAD LAST U/P WORD 

718 S 3 EXPRO-Z IS" IT EXPRESSION OPTR 

719 BSC L O2012, - BRANCH IF YES 
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721 UD 12 LOAD RfcCURD NUMBER 

722 AND 3 H7800-Z l'S IT SUBSCRIPTED 

723 BSC L D1014, - BRANCH IK NOT 

724 * 

725 O2012 HDX 1 1 MOVE U p p T 

726 BSI 3 SCHP1-Z LOAD LJTERAL bUBSC OFFSET 

727 MDX 1 -1 DECREMENT J/P PT 

728 LD 3 H610Q-Z l,OAD ,MDX Llj, 

729 BSI 3 O'JTP-Z OUTPUT 

730 LD 1 2 UOAD DlMfcNSlQN 

731 AND 3 H87FF-Z REMOVE SUBSCRIPT BITS 

732 sto i 2 Gesture 

733 * 

734 BSI 3 OlJTP-Z OUTPUT 

735 LD 3 H6000-Z LOAD NOP MDX 

736 BSI 3 OUTP-Z OUTPUT NOP 

737 LD 3 H62QQ-Z LOAD ,STX Ui 

738 BSI 3 OUTP-Z OUTPUT 

739 LD 3 H8003-Z LOAD 

740 BSI 3 OUTP-Z OUfPUT 

741 BSC L D1014 OUTPUT EXPRESSION OPFRATDR 

742 * 

743 * 

744 Q2008 LD 1 2 LD RfcCD NO, 

745 AND 3 H7800-Z IS IT SUBSCRIPTED 

746 BSC L D1021, - BRANCH IF NOT 

747 id 3 EXPRO-Z OUTPUT EXPRESSION OPERATOR 

748 BSI 3 OUTP-Z * 

749 MDX Q2012 CONTINUE 

750 * 

751 Q2009 LD 1 LOAD WqRU 

7 "<S3 S 3 HQ02E-Z IS II CALL OPERATOR 

7'54 BSC L Q4011, - BRANCH IF YES 

7.55 A 3 HQ016-Z IS K LATERAL SUBSC OPTR 

7*56 BSC L Q3051, - BRANCH IF YES 

757 BSC L Q2013, IS H SPECjAL PARENTHESIS 

7 R8 S 3 HQ008-Z FOR DIMENSIONED ARRAYS 

759 BSC L Q3011,Z BRANCH IF YES 

760 BSC L Q2021, - BRANCH IF UNARY MINUS 

761 Q2013 LD 1 LOAD WqRU 

762 S 3 H0014-Z IS I] \F OPERATOR 

763 BSC L Q2031,Z BRANCH IK NOT 

764 * 

765 * IF OPERATOR ENCOUNTERED 

766 * TEST IF NEXT WD lb STUNT NUMBER 

767 LD 1 1 LOAD NEXT WORD 

768 BSI 3 SYMT-Z SET S>YM TBL P WORD 

769 AND 3 HQ200-Z IS I I STMNT NO, 

770 BSC L MQVE4,Z BRANCH IF YES 

771 BSI 3 SQHPl-Z LOAD LITERAL SUBSC OFFSET 

772 BSI 3 MOVAW-Z OUtPuT WuRD, MOVE POINTERS 

773 M0VE4 BSI 3 MOVAW-Z OUTPUT WURD# ^OVE POINTERS 

774 M0VE3 BSl 3 MQVAW-Z OUTPUT WuRD* MOVE POINTERS 
77s MOVE2 BSI 3 MOVAW-Z OUfPUT WuRD, MOVE POINTERS 

776 MOVE1 BSI 3 MOVAW-Z OUTPUT WURD, MOVE POINTERS 

777 " MDX Q2011 IDENTIFY NEXT OPERATOR 

778 * m ., 

779 * UMARY MINUS ENCOUNTERED 
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7R0 * TEST IF NEXT WORD IS OPERATOR 

781 Q2021 LD 1 1 LOAD NEXT WORD 

782 BSC t MOVE1,- BRANCH It- NEXT WORD OPERATO 

783 * 

784 * 

785 O2022 BSI 3 SQHP1-Z LOAD LjTfcRAL SUBSC OFFSET' 

786 HDX MQVE2 MOVE WoRU 

787 * 

788 • .OTHER QPERATUR, ENCOUNTERED 

789 Q2031 LD 1 2 LOAD WQRU 

790 BSC L Q2D22,- BRANUH IF OPERATOR 

791 LD 1 LOAD WORD 

792 S 3 H000E-Z IS IT ASSIGN 

793 BSC L Q2Q32,Z BRANCH If NOT 

794 * 

795 * .ASSIGN, FOLLuWfcD BY TWO NAMES 

796 * ENCOUNTERED,' fcXcHANGE WORDS AT 

797 * POINTER 1 AND POlNTfcR Z 

798 * 

799 LD 11 LOAD FjRST WQKD 

800 RTE 16 PUf IN EXTENSION 

801 LD 12 LOAD 2ND WORD 

802 STO 1 1 PLACfc JN FIRST WORD I.OCATIO 

803 RTE 16 PUT 1ST WORD IN ACCUMULATOR 
604 STO 1 2 PLACfc JN 2ND WQKD LOCATION 

805 Q2032 BSI 3 SCHP1-Z SUBSuR CHECK, PTR 1 

806 BSI 3 MQVAW-Z OUTPUT WuRU# «OVE POINTERS 

807 BSI 3 MQVAW-Z OUTPUT WORD, HOVE POINTERS 

808 BSI 3 SCHP8-Z LOAD LjTfcRAL SUBSC OFFSETS 

809 MDX MOVE1 MOVE WqRD 

810 * 

811 * SEMICOLON ENCuUNTfcRfcD 

812 * MOVE LAST WORu AND TES]" SWITCH 

813 * 

814 Q2041 BSI 3 MOVAW-Z OUTPUT WQRy, MOVE POINTERS 

815 MDX 1 -1 DECREMENT J/P PT 

816 LD 3 STXSW-Z TEST STX SWITCH 

817 BSC L Q5011, Z BRANgH IF SET 

818 BSC L 01021 SO Tu NEXT STUNT 

819 * 

820 * SUBSCRIPT OPEKATOK ENCOUNTERED 

821 * 

822 Q3QU BSI S3SN PROCfcSS SUflSCK OPTR 

823 MDX 02011 IDENTIFY NEXT OPERATOR 

824 * 

895 * LITTERAL SUBSU QPbRATO« ENCQUNTgRSP 

826 Q3051 BSI S^SLT PROCfcSS LITERAL SUBSCRIPT' 

827 MDX 02011 IDENTIFY NfcXT OPERATOR 

828 * 

829 * 

830 * GENERATES THE CALL FOR SUBSCRIPT 

831 * CALCULATION WjTH ARGUMENTS 

832 * MAKES THE SGT TfcJL ENTRY 

833 * 

834 SBSN DC ENTRY ROlNT 

835 A 3 H00Q8-Z GET UlMENSjQN COUNT 

836 STO 3 DIMCT-Z STORt DIMENSION COUNT 

837 LD 3 H1900-Z LOAD ,CALL SUBSC, 

838 BSI 3 0'JTP"Z OUTPUT CALL 

839 LD 11 LOAD WORD 
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15 






84 




AND 


3 


H87FF-Z 


GET bYM TBL ENTRY NO, 


841 




BSI 


3 


OUTP'-Z 


OUTPUT 


842 




LD 


1 


1 


LOAD WO«U 


843 




AND 


3 


H7800-Z 


GET KSEUUO INDEX 


844 




SRA 




11 


RIGHT JUSTIFY 


845 




STO 


3 


CURR-Z 


PUT IN CURR 


846 




LD 


1 


2 


LOAD D«. 


847 




SLA 




1 


DELETE 


84H 




SRT 




1 


BIT u 


849 




BSI 


3 


OUTP-Z 


OUTPUT 


850 
851 


* 
* 






INSERT , 


NON-UlTTEKAU, TO SGT-TABL=i 


852 




LD 


1 


1 


LOAD WQRD 


353 




BSI 


3 


SQTAD-Z 


dOMPuTE SGT TABLE ADPR 


854 




LD 


3 


H80 0-Z 


LOAD NQN-LlTEKAL SGT WORD' 


855 




STO 


I 


SQTI 


PUT JN TABLE 


856 


* 










857 




MDX 


1 


3 


MOVE I/P PT 


858 
859 


# 
* 






OUTPUT REMAINING ARGUMENTS 


860 


SBSl 


LD 


1 





LOAD WQRU 


861 




BSI 


3 


OijTP»Z 


OUTPUT 


862 




LD 


1 


1 


load~wqru 


863 




BSI 


3 


OUTP-Z 


OUfPUT 


864 




MDX 


1 


2 


Hove"o/p pt 


865 




MDX 


L 


DlMCT,-2 


DECRtMENT DIMENSION COUNT 


866 




MDX 




SRSl 


OUTPUT REMAINING ARGUMENTS 


867 


* 










868 


# 






TAG LAST 


ARGUMENT IN LIST 


869 




LD 


2 





LOAD LAST AGUNENT 


87 




OR 


3 


H8000-Z 


Tag argument 


871 




STO 


2 





PUT BACK IN O/'P STRING 


87 2 


* 










873 




BSC 


I 


S3SN 


RETUKN 


874 


* 










87 5 


* 






MAKES THE LlTtRAL SUBSCRIPT Ef'TRY 


87 6 


* 






IMTO THE 


SGT I'ABLb 


877 


• 










878 


SBSLT 


DC 







ENTRY POINT 


879 




LD 


1 


1 


LOAD NA^t: 


8.30 




BSI 


3 


SQTAP-Z 


COMPUTE ADDR IN SGT-TABL". 


881 




LD 


1 


2 


LOAD D4 


832 




SLA 




1 


DELETE BIT 


883 




SRT 




1 




884 




STO 


I 


SQTI 


PUT JN SBT.TABLt 


885 




MDX 


1 


3 


MOVE POINTER 


886 




BSC 


I 


SBSLT 


RETUKN 


88 7 


# 










888 


* 






SCANS THE TWO-WQRU GALL ARGUMENT Lil 


889 


# 






FOR SyBSCRlPTfcD NAMES 


89 


* 






GENERATES'THE" INSTRUCTIONS FOR 


891 


* 






OBJECT"TlME"AuDREbS INSERTION FOR 


892 


* 






SUBSCRIPTED VARIABLES 


893 


* 










894 


Q4011 


STX 


1 


Q4021 1 


SAVE l/P PT 


895 


Q4012 


LD 


1 


1 


LOAD WQRU 


896 




BSC 


L 


Q4021,- 


BRANCH IF OPERATOR 


897 




STO 


3 


TEMP1-Z 


SAVE" ARGUMENT 


898 




AND 


3 


H7800-Z 


GET PSEUUO INDEX BITS 


899 




BSC 


L 


04014, - 


BRANCH IF NO PSEUDO INDEX. 
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900 BSI 3 5GTAU-Z COMPUTE SGT TABLE ADDRESS 

901 BSI 3 SCHPW UOAD~LlTfcRAL SUBSC OFFSETS 
9T2 LD 3 H610Q-Z LOAD ,MDX 1,1, 

903 BSI 3 O'JTP-Z OUTPUT 

904 UD 11 LOAD WORD 

905 BSI 3 OJTP-Z OUTPUT 

906 LD 3 H600Q-Z LOAD ,NOP, MDX O 

907 BSI 3 OUTP-Z OUTPUT 

908 LD 3 H6200-Z LOAD ,STx Ll, 

909 BSI 3 OUTP-Z OUTPUT 

910 * 

931 * RESTORE WORD aT PT 1 

912 * WITH ITS PSEUgO INDEX 

913 # 

934 LD 3 TEMP1-Z LOAD NA*b 

915 STO 1 1 PUT ttACK ON STRING 

916 * 

917 BSI 3 OUTP'Z OUTPUT WyRu 

91 8 # SERVES LATER AS IDENTIFICATION 

919 * AT STX Ll-SCAN 

9?0 * ZERO .CURRENT SgT, * 

9?1 * 3GT DESTROYEU AT OBJECT TIME 

922 * BY MDX H-INSjR 

9 '' 3 * 

9?4 SLA 16 CLEAN ACCUMULATOR 

925 STO 3 CURR-Z CLEAN CUNR 

926 LD 3 H300Q-Z SET CURRENT D4 

927 STO 3 CURD4-Z TO NuN-LjTfcRAL 

9?8 STO I SQTI SET LAST SGT TO NON-LITERAL 

929 MDX L STXSW,1 SET STX-bWlTCH 

930 * 

931 O4014 MDX 1 1 MOVE PQlNTER 

932 MDX Q4012 PROCESS SUBSCRIPTED ARGU^EN 

933 * 

934 * OUTPUTS THE 2-WQRU SUB*' CALL WITH 

935 * ARGUMENTS 

936 * 

937 Q4021 LDX Ll *** RESTyRE NOjNTER 

938 Q4022 BSI 3 MOVAW-Z OUTPUT WORD* H OVE POINTERS 

939 ud i LOAD WoRU 

940 BSC L XXXXX,* BRANCH IK fcND OF ARGUMENTS 

941 # - OPERATOR ENCOUNTERED 

942 MDX Q4022 PROCESS NEXT ARGUMENT 

943 * 

944 * COMPUTES DISPLACEMENT VALUES FOR 

945 * STX Ll INSTRUCTIONS USED FOR 

946 * STORING THE 'COMPUTED SUBSCRIPT OFFSE 

947 # IMSERTS THOSE VALUES JNTO THE SECOND 

948 * WORD OF THE* INSTRUCT ION 

949 Q5011 STX 1 Q5015 1 SAVE PQlNTfcR 

950 LDX II TEMPP LOAD TEMPORARY POINTER 

951 Q5013 LD 1 LOAD WQRU 

9^2 BSC L Q5021.Z BRANCH IK NOT SEMI-COLON 

953 Q5015 LDX Ll *-* RESTORE POjNfbR 

954 BSC L 01021 PROCESS NEXT STMNT 

955 * 

956 Q5021 BSC L Q5031,- BRANCH If NOT NAME 

957 * 

958 Q5022 MDX 1 1 MOVE POINTER 

9*59 MDX 0*5013 CHECK FOK END OF STMNT 
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960 * 

961 Q5031 S 3 H190D-.Z IS WORD ,CALL SURSCR, 

962 RSC L Q5035,Z BRANCH IF NOT 

963 BSI 3 PASSA-Z MOVE PQlNTER HAST ARGUMENTS 

96 4 MDX Q5013 CHECK FOR END OF STUNT 
965- Q5035 LD 1 LOAD WQRD 

966 S 3 H62O0-Z IS IT ,bTX Ll| 

967 BSC I G5Q41, - BRANCH IF YES 

968 S 3 DIFF1-Z IS IT ,LUX Lit 

969 BSC L Q5022,Z BRANCH IF NOT 

970 MDX 1 1 MOVE POINTER 

971 MDX Q5Q22 MOVE PT» CHECK NEXT WORD 

972 * 

973 * COMPUTE Z IN INSTRUCTION 

974 * STX 11 Z 

975 * AND INSERT ON STRING 

976 # 

977 O5041 SLA 16 CLEAN EXTERNAL COUNTER 

978 STO 3 COUNT-Z 

979 MDX 1 1 M0VE POINTER 

980 STX LI TF.MPX SAVE PQlNTER 

981 * 

982 * SEARCH FOR IDENTIFIER IN 

983 * CALL-ARGUMENT LjST 

984 * 

985 Q5042 MDX 1 1 MOVE POINTER 

986 05043 LD 10 

987 S 3 H19Q0-Z IS WyRD t.CALL SUBSC, 

988 BSC L Q5Q45,Z BRANCH IF NOT 

9R9 BSI 3 PASSA-Z MOVE" PT PAST ARGUMENTS 

990 MDX 05043 CHECK NEXT WORD 

991 * 

992 Q5045 LD 1 

993 S 3 H5B00-Z IS WuRD .LDX LI, 

994 BSC L 05046, Z BRANCH IF NOT 

995 MDX 1 1 MOVE POINTER 

996 MDX Q5042 SEARCH FUR IDENTIFIER 
9<?7 * 

998 Q5046 LD 1 LOAD WORD 

999 RSC L Q5047,*Z BRANCH JF NOT OPERATOR VIM 
1000 S 3 HQ02E-Z IS IT A CALL OPERATOR VIM 
10111 BSC L Q5042,Z BRANCH NO VIM 

1002 MDX 05045*4 8RANCH YES VIM 

1003 Q5047 BSI GETID GET jD VIM 

1004 SLA 11 

1005 BSC L CQNTU,- BRANCH IF NOT EXTERNAL 

1006 MDX L COUNT, 1 INCREMENT EXTERNAL COUNTER 

1007 MDX Q5042 GO MOVE POINTER 

1008 CQNTU LD 1 RELOaD STRjNG ARGUMENT 
3.0P9 S I TEMPX IS IT AOUR IN STX LI INSTR 
1010 BSC L Q5042,Z BRANQH IF NOT 

1012 * REMOVE RSEUDOlNDEXBlTS FROM 

1013 * CALL-ARGUMENT WORD 

1014 * 

1015 LD 1 LOAD WoRU 

1016 AND 3 MS7FF-Z REMOVE PSEUOO INDEX BITS 

1017 STO 1 PUT BACK ON STRING 

1018 * 

1019 * COMPUTE AND JnSeRT' SECOND MALf 
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1020 * Or STX LWNSTRUCTIQN 

1021 * 

1022 STX LI TEMPI SAVE PQjNTfcR 

1023 LD 3 TEMP1-Z LOAD ADDRESS OF PT 

1024 S 3 TEMPX-Z SU8TKACT STORED PT 

1025 OR 3 HSOOQ-Z PUt IN SIGN BIT 

1026 A 3 COUNT-Z ADD fcXTEKNAL COUNT 

1027 STO I TPMPX PUT IN STX LI INSTRUCTION 

1028 LDX U TEMPX RESTyRE POJNT&R 

1029 MDX Q5022 MOVE Py# CHECK NEXT WORD 

1030 * 

1031 * 

1032 * S3T-TABLE 

1034 SGTB DC /300Q NON-UHEKAL CONSTANT 

1035 DC /8000 NONrLlTEKAL CONSTANT 

1036 DC /3000 N0N»LITEHAL CONSTANT 

1037 DC /3000 NON-LITEKAL CONSTANT 

1038 DC /8000 NON-^ITEKAL CONSTANT 

1039 DC /8000 NON-UITEKAL CONSTANT 

1040 DC /30QQ NON-LITEKAL CONSTANT 

1041 DC / 3 NON-LITERAL CONSTANT 

1042 DC /8000 NON-LITEKAL CONSTANT 

1043 DC /BO0O NON-LITEHAL CONSTANT 

1044 DC /3000 NON-LITEKAL CONSTANT 

1045 DC /3000 NON-UITEKAL CONSTANT 

1046 DC /3000 NON-LITEKAL CONSTANT 

1047 DC /3000 NON-LITEKAL CONSTANT 

1048 DC /300Q NON-L'ITEKAU CONSTANT 

1049 * 

1050 * 

1051 * GETS THE JD WuRQ UF A SIN TBL ENT^Y 

1052 * 

1053 SYMT DC ENTRY POjNT 

1054 GETID EOU SYMT 

1055 AND 3 HQ7FF.Z GET SYM TBL ENTRY NO, 

1056 S 3 ONE*Z 

1057 STO SYMT1 1 SAVE EN^KY NO a 

1058 LD L SOFST LOAD STAKT OF SYM TBL ADOR 

1059 * 

1060 S SYMT! 1 GET ADDRESS OF ENTRY 

1061 S SYMT! 1 8Y"M0LY*PLYlNG ENTRY NO, BY 

1062 S SYMT1 1 THREE AND SUBTRACTING JT 

1063 STO SYMT1 1 FROM TaBLE ORIGIN 

1065 SYMT1 LD L *•* LOAD SYM TBL ID WORD 

1066 BSC I SYMT RETUHN 

1067 * 

1068 * SUBROUTINE 

1069 * MOVES THE POINTER PAST THE 

1070 * ARGUMENTS OF L, I Sf- SUflSC 

1071 * 

1072 PASSA DC ENTRY POJNT 

1073 MDX 1 3 MOVE POINTER 

1074 PASS! MDX 1 2 MOVE PQlNTER 

1075 LD 1 -1 REIUHN IF LAST 

1076 BSC I PASSA.Z ARGUMENT TAGGED 

1077 MDX PASS1 BRANCH If- NOT 

1078 * 
10 79 * 
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1080 


* 






SUBROUTINE 


1081 


# 






MOVE WORD AT j/p PT TO O/P STRING 


10 82 


* 






INCREMENT POINTERS 


1083 


MOVAW 


DC 







ENTRY POINT 


1084 




LD 


1 





LOAD wgRu 


1085 




BSI 


3 


outp-z 


OUTPUT WuRg, HOVE O/P PT 


1086 




MDX 


1 


1 


MOVE"l/P PT 


1087 




BSC 


I 


MQVAW 


RETURN 


1086 


* 










1089 


* 






SUBROUTINE 


1090 


* 






O.JTPUT 




10«>1 


* 






MOVES i 


CONTENTS Of 7 AQC TO 


1092 


* 






OUTPUT 


STRING, JNCR NORM AND 


1093 


# 






CHECKS 


if'oVeklap erroh 


1094 


* 










1095 


OUTP 


DC 







ENTRY ROJNT 


10 96 




STO 


2 


1 


OUTPUT WORD 


1097 




MDX 


2 


1 


MOVE~0/P PT 


10<>8 




UD 


I 


OJT 10 


LOAD STMNT I/D WORD 


1099 




A 


3 


FOUR*Z 


INCRbMENT NORM BY ONE 


1100 




STQ 


I 


OUT ID 


pyf id word on o/p strins 


1101 




STX 


1 


0UTP3 




110 2 




STX 


2 


0UTP4 


CHECK FOH 


1103 




UD 




0UTP3 


OVERLAP 


110 4 




S 




0UTP4 


ERROK 


1105 




§ 


3 


TWO-Z 




110 6 




BSC 


I 


OUTPiZ 


- RETURN IF NO OVERLAP ERROR 


1107 




BSC 


U 


OVUAP 


OVERLAP tRKOR 


1108 


DUTP3 


DC 







TEMPORARY storage OF PT 


110 9 


0UTP4 


DC 







TEMPURARY STORAGE OF PT 


1110 


* 










1111 


* 










1112 


* 






SUBROUTINE 


1113 


* 






CONVERTS PSEUUO iNDbX IN ACC 


1114 


* 






INSTO SGT«fABUt ADDRESS, 


1115 


* 






STORE 


AT t SGTl, 


1116 


* 










1117 


sqtad 


DC 







ENTRY POJNT 


1118 




AND 


3 


H7800- 


Z GET HSEUUO INDEX 


1119 




SRA 




11 


RIGHi JUSTIFY INDEX 


1120 




A 


3 


AQRC»Z 


GET ACTUAL 


1121 




STO 




SGTI 


SGf-TABLfc ADDRESS 


1122 




BSC 


I 


SGTAD 


RETURN 


1123 


SGTI 


DC 







COMPUTED SUT-TABLE ADDRESS 


1124 


* 










1125 


* 










1126 


* 






GENERATES THE iDX INSTRUCT I ON 


1127 


* 






USING 


the sgt table 


1128 


* 










1129 


* 










1130 


* 






ENTRY 


FOR ARGUM POINTER 


1131 


* 










1132 


SCHP2 


DC 







ENTRY pT 


1133 




ID 




SCHP2 


MOVE RETURN ADDRESS 


1134 




STO 




SCHP1 


TO 'SgHPl 


1135 




UD 


3 


ZERO-Z 


LOAD'ZERU 


1136 




MDX 




SCHU 


CONTINUE 


1137 


# 










1138 


* 






EITRY 


FOR ARGUM POINTER 1 


1139 


* 
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1140 
3.141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 

1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 

1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
119 Q 
1191 
1192 
1193 
1194 
ll e >5 
1196 
1197 
1198 
1199 



SCHP1 
SCHll 



* 

# 
* 



* 
SCH15 



SCH21 



ADDR 

* 

USWIT 

ZERO 

Z 

ONE 

TWO 

THREE 

FOUR 



DC 

LD 

STX 

A 

STO 

ID 

AND 

6SC 

SRA 

S 

BSC 

A 

STQ 

ID 

BSI 

LD 

S 

BSC 



3 
1 



LD 

BSI 

LD 

STO 

BSI 



LD 
AND 
STO 
BSC 



LD 

BSI 

LD 

S 

SRT 

D 

A 

OR 

BSI 

LD 

STO 

MDX 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 



3 
3 



L 
L 



3 
3 

3 
3 

3 
3 





O'JE-Z 

ADDR 

ADDR 

ADDR 

ADDR 

H7800.Z 

SCHP1, - 

H 

CURR-Z 

SCH15, . 

CURR-»Z 

CURR»Z 
ADDR 
SGTAD-Z 
SQTI 

Hgooo-z 

SCH21, - 



ENTRY POJNT 

L,OAD ONE 

SAVE INPUT POINTER 

MODIFY INPUT POINTER 

SAVE^ADDK 

L.OAD WQRU AT I/P PT 1 

GET FSEUUO INDEX 

RETURN If- NO HSEUDO INDEX 

RIGHT JUSTJFY 

|S~jf CURRENT SGT 

BRANCH U YES 

RESTORE WORD 

PUT \H CURRENT SGT 

LOAD' WQRtf 

COMPUTE SGT-TA8LE ADDRESS: 

L,OAD ADDRESS 

IS" IT NON»LlTERAL SGT 

BRANyH IF YES 



LITERAL SUBSCNIPT ENCOUNTERED 
TEST IF Jf MATCHES WITH 
CURRENT LITERAL D4 

OUTPUT ,LDX Uli AND D4 
M5B00-Z LOAD ,LDX L,l, 
OUTP*Z OUTPUT 
SQTI UOAD'SQT TABLE WORD 
CURD4.Z STORE AS CURRENT D4 
OUTP"Z OUTPUT WuRD 

**i*S LUX Ll SGT TBL WD 
DELETE PSEUDOjNDEX*BlTS 
FROM STRING WURD» RfcTURN 



ADDR LOAD WQRU 

H37FF.Z DELETE PbEUDO 

ADDR RESTORE WORD 

SCHP1 RETUKN 



INDEX PITS 



OUTPUT ,LDX 
H4800-Z 

OUTP*Z 

SOFST 

SOFXT 

16 
THREE-Z 

CURR-Z 
H8000-Z 

OUTP-Z 
H8000-Z 
CURD4-Z 
SCH15 





Ui AND SGT 
LOAD f LDX Hi 
OUTPUT ,LDX U, 
L.OAD"STAHT OF SYM TBL ADDR 
SUBTRACT START OF SUBSCRIPT 
TEMPORARIES 
DlVjuE BY THREE 
ADD CURRENT S«T 
PUT SIGN B|T FOR ADDRESS 
***** LUX ll ADDRESS 
INSERT NUN LITERAL 
CURRfcNT U4 

DELETE PbEUDO INDEX WORDS 
ADDRfcSS STORAGE 







ZERO 

1 

2 

3 

4 



UNFOkMaTTED I/O SWITCH 
ZERO" 

ONE 
TWO 
THREE 
FOUR 
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1200 


* 








1201 


UDXI1 


DC 


/C00Q 


iLDX ix t 


1202 


FGOTO 


DC 


/0F80 


CALL GO TQ TRACE 


1203 


COMGO 


DC 


/QD8Q 


CALL COMPUTED GOTO SUBR 


1204 


LOP 


DC 


/Q028 


LJST*QPEKAT0R 


1203 


H1800 


DC 


/1800 


DIMENSION MASK m SYM TBL 


1206 


* 








1207 


fioix 


DC 


/1700 


t CALL SlUIX, 


1208 


FIOFX 


DC 


/1680 


t CALL SIUFX. 


1209 


FIQI 


DC 


/188P 


jCALL SIOI, 


1210 


FIOF 


DC 


/10OO 


jCALU SlUF, 


1211 


FIOAI 


DC 


/1580 


t CALL SlUAJi 


1212 


FIOAF 


DC 


/1600 


.CALL SIUAF, 


1213 


QENLO 


DC 


/5E01 


STORfcD GtNERAL LABEL OPT* 


1214 


DOAOP 


DC 


/002A 


P0A»gPERAT0R 


1215 


DOTOP 


DC 


/Q04A 


DQ'TfcST OPERATOR 


1216 


AL 


DC 


/9800 


t* " Li 


1217 


STOL 


DC 


/900Q 


1.SIO i, 


1218 


SL 


DC 


/AO00 


lS Li 


1219 


MDXll 


DC 


/5101 


t MDX Lit 


1220 


LDL 


DC 


/S800 


iLO L. 


1221 


H0018 


DC 


/C018 


LITEKAL OPERATOR 


1222 


HA008 


DC 


/A008 


ERROK STMNT ID w ORD 


1223 


C69 


DC 


69 


ERROK nOj 69 


1224 


H5F00 


DC 


/5F00 


tBLANK, 


1225 


* 








1226 


* 




suorou t ; 


[NE 


1227 


* 




OUTPUT C 


;0NTEN1S OY ACC AND WORD AT 


1228 


* 




POINTER 


TwiTH DISK I/O TEST 


1229 


* 








1230 


OUTIO 


DC 





ENTRY POINT 


1231 




BSI 


3 DTEST-Z 


OUTPUT CALL 


1232 




LD 


1 1 


load'wqru 


1233 




AND 


3 H87FF-Z 


DELETE PSEUPO INDEX PITS 


1234 




BSI 


3 OJTP-Z 


OUTPUT WURD 


1235 




BSC 


I OUT 10 


RETUHN 


1236 


* 








1237 


* 




SUBR OUTPUT ,LU U. PTK 1 


1238 


OULDL 


DC 





ENTRY POINT 


1239 




LD 


1 1 


i,OAD' WQRU 


1240 




AND 


3 HQ7FF-Z 


QEf bYM TBL ENTRY NO, 


1241 




A 


3 LDL-Z 


COMBINE WITH ,LP L. 


1242 




BSI 


3 OUTP-Z 


OUTPUT INSTRUCTION 


1243 




BSC 


I OijLDL, 


RETUHN 


1244 


FLD 


DC 


/0480 


iCALL FLU, 


1245 


FRED 


DC 


/1400 


A CALL FRtD, 


1246 


FWRT 


DC 


/1480 


t CALL FWKT, 


1247 


FCOMP 


DC 


/1500 


t CALL FCUMP, 


1248 


FIND 


DC 


/2680-/2180 /1400 »CALL FIND, 


1249 


* 






CALL FIND , 


1250 


* 






CHANUED LATER TO /2680 


12151 


* 






8Y" DTEST 


1252 


* 








1253 


FNDID 


DC 


/E800 


iFlND, ID 


1254 


* 








1255 


RETCT 


DC 





RETUKNwCUUNT 


1256 


BSCl 


DC 


/5080 


iBfC'li 


1257 


H5080 


EQU 


BSCI 




1258 


H4020 


DC 


/4020 


DEFINED INTEGER VAR ID 


1259 


H0220 


DC 


/0220 


REFERENCED STMNT NO, ID 
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3,260 * 

1261 HQ02E DC /Q02E CALL QPEHATOR 

1262 H0016 DC /Q016 ^AU, 

1263 HC008 DC /0008 CONSTANT FgR PIM COUNT 

1264 H000E DC /0OQE ASS iuN. OPERATOR 

1265 H0200 DC /Q2Q0 STMNT NO, jN SYM TBL ID 4D 

1266 H1900 DC /190Q t CAUL SUBSCR, 

1267 H7800 DC /7800 MASK TQ GET PSEUDO INDEX 

1268 H87FF DC /87FF MASK TQ tLjMlNATE PSEUDO ID 

1269 H07FC DC /Q7FC MASK TQ UET STMNT NORM 

1270 HQ7FF DC /Q7FF MASK To UET ADDR 

1271 ADRC DC SGTB-1 MASK FgR SYM TBL ENTRY ND, 

1272 H0014 DC /Q014 IF" OPERATOR 

1273 DIFF1 DC /5BQQ-/62QQ ,J,DX 11, 

1274 H8000 DC /8000 NON«LITEHAL. SGT 

1275 H8003 DC /8003 USEFUL CONSTANT 

1276 H6100 DC /6100 t MDX Ll t 

1277 H6000 DC /6000 t NOPj MDX. 

1278 H6200 DC /62QQ l STX 1,1, 

1279 H5B00 DC /5B00 t l»DX 1,1, 

1280 H4800 DC /4600 A LDX jl, 

1281 HF800 DC /F800 ID TYPE MASK 

1282 HF803 DC /F8Q3 MASK Tq ELJMJNATE STUNT MOR 

1283 H1000 DC /1000 END STMMT JD TYPE 

1284 TEND EQU HlOOO 

1285 * 

1286 STTYP DC STATtMENT TYRE 

1287 OUTID DC ADDRESS OF O/P STMNT ID dOR 

1288 INID DC ADDRfcSS OF I/P STMNT ID 40R 

1289 NORM DC STMNT NORM 

1290 STXSW DC STX-SWjTCH 
12<51 TEMPX DC POINTER STORAGE 

1292 TEMPP DC POINTER STyRAGE 

1293 TEMPI DC POINTER STORAGE 
12<?4 DIMCT DC DIMENSION COUNT 

1295 CURR DC CURRfcNT SGT 

1296 SOFIS DC START gF INPUT STRING 

1297 SSOST DC STORbD START OF I/P STRJVJG 

1298 * 

1299 CURD4 DC CURRfcNT U4 

1300 * /8uOQ IF NOT LITERAL 

1301 * 

1302 * 

1303 * NOT USED IN CARD SYSTEM 
130 4 * 

1305 IOOPR DC /0026 JO-OKERATOH 

1306 DIOOP DC /0030 DISK IQ OPERATOR 

1307 EXPRO DC /0054 EXPRfcSSlUN OPERATOR 

1308 DSWJT DC DISK SWITCH 

1309 TEMPY DC TEMPORARY STORAGE 

1310 COUNT DC EXTERNAL COUNTER 

1311 * 

1312 * SUBROUTINE 

13.1.3 * OUTPUT. WITH TEST OF DISKSWITCH 

1314 * 

1315 PTEST DC ENTRY pO}NT 

1316 STQ DTES1 SAVE CALL 

1317 LD 3 D5WJT-Z IS IT DISK OPERATION 

1318 BSC L ADli - BRANCH IF NOT 

1319 LD CTIFF SET ulSK NAME 
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1320 MDX ADDN TAB^t OFFSET 

1321 ADI LD 3 USWIT.Z JS It UNFORMATTED I/O 

1322 BSC L ADDNi - BRANCH IF NOT 

1323 ID DTES1 CHECK THfc NO Jl OF THE ENTW 

1324 S H1500 TO~SfcE WHigH PART OF THE 

1325 BSC I ADO#Z- TABU IN O/P PHASE HOLDS TH 
13?6 UD UDIF1 CORRtSpONDjNG UNFORMATTED. 

1327 MDX ADDN I/O NAME AND PUT THE PROPER 

1328 ADQ UD UDIF2 DISPLACEMENT 

1329 ADDN A DTES1 ADD BASE ADDRESS 

1330 * VALUfc OF DTESTl JS UNCHARGE 

1331 * UNLESS DISK OR UNFORMATTED 

1332 * I/O IS PKESENT 

1333 BSI 3 OJTP-Z OUTPUT WORD* M OVE O/P PT 

1334 BSC I DTEST RETUHN 

1335 # 

1336 H1500 DC /15Q0 CONSTANT FQR CHECKING TBg 

1337 DTES1 DC TEMPORARY STORAGE 

1338 CDIFF DC /2180-/14QQ UlS* NAME TABLE 

1339 UDIF1 DC /12QCU/14QQ UNFORMATTED * PART 1 

1340 UDIF2 DC /1D8Q-/158Q J/0 NAME TBL * PART Z, 

1341 * 

1342 * 

1343 * TRANSFERS TO THE COL RPUTJNE TO LOAD 

1344 * TME NEXT PHASfc 

1345 * 

1346 EXIT BSI L RQLRX CALL DOWN PHASE 18 

1347 DC 18 NEXT PHASE NUMBER 

1348 * 

1349 * 

1350 * 

13fJl DC *•* TO Bb FILLED 

1352 XXXXX SLA 16 

13*3 STO 3 C-JRR-Z CLbAK cUNRbNT SGT 

13*4 BSC L Q2011 GET NEXT OPERATOR 

13*5 BSS OVERL-**320*4 pHASE-17 PATCH AREA 

1356 END START 



